raktar.dbf

cod c(9)     primary 
aruneve c(30)   asc
egyara N(7,3)   asc
dbszam N(10)   desc
helyseg C(40)

10.

close all
select 0
use raktar
insert into raktar(cod, aruneve, egyara, dbszam, helyseg) values([1],[labda],12.56,300,[Sparta])

insert into raktar(cod, aruneve) values([1],[labda])

11.

cod c(9)     textbox1
aruneve c(30)   textbox2
egyara N(7,3)   textbox3
dbszam N(10)   spinner1
helyseg C(40) textbox4

command1 click>

close all
select 0
use raktar
insert into raktar(cod, aruneve, egyara, dbszam, helyseg) ;
values(thisform.text1.value,alltrim(thisform.text2.value), ;
val(alltrim(thisform.text3.value)), thisform.spinner1.value, alltrim(thisform.text4.value))


12.


if ( not empty(thisform.text1.value)) and ( not empty(thisform.text2.value));
 and ( not empty(thisform.text3.value)) and ( not empty(thisform.text4.value)) ;
and ( not empty(thisform.spinner1.value))

          insert into raktar(cod, aruneve, egyara, dbszam, helyseg) ;
                     values(thisform.text1.value,alltrim(thisform.text2.value), ;
                       val(alltrim(thisform.text3.value)), thisform.spinner1.value, alltrim(thisform.text4.value))


elseif

messagebox([valamelyik nics kitoltve])


endif

13.


1. M

close all
select 0
use raktar
go top
for i=1 to reccount()
     if dbszam=0
              update raktar set egyara=egyara+100
      endif
    skip 1
endfor

browse


2. M

close all
select 0
use raktar

locate for dbszam=0

do while found()
        update raktar set egyara=egyara+100
     continue
enddo

browse

14.

diak.dbf

sorszam N(2)
vnev C(30)
knev C(30)

jegy1 N(2)
jegy2 N(2)
jegy3 N(2)

media N(5,2)



close all
select 0
use diak

insert into diak(sorszam, vnev, knev, jegy1, jegy2, jegy3) values(;

thisform.spinner1.value, thisform.text1.value, alltrim(thisform.text2.value), ;
thisform.spinner2.value, thisform.spinner3.value, thisform.spinner4.value)

browse


go top
for i=1 to reccount()
      update diak set media=(jegy1+jegy2+jegy3)/3

     skip 1
endfor

browse

select avg(media) as atlag from diak



               
